home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / recent / mcf4amrc.lha / MCF4AmIRC / Rexx / MCF_SAbuser.AMIRX < prev    next >
Text File  |  1996-12-18  |  810b  |  11 lines
  1. /* MCF_SAbuser.AMIRX
  2. // $VER: MCF_SAbuser.AMIRX 4.10 (18.12.96) (MCF Extra Command)
  3. \\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
  4. // Please mail any bug reports/comments to the above address with a subject
  5. \\ header of MCF.AMIRX.
  6. //
  7. \\ ** What to do with this file?
  8. // Put this script in REXX:
  9. \\  Add the following Alias    SA /Rx MCF_SAbuser %p
  10. */
  11. ;parse arg flag who;if flag ~='-' then who=flag;if who="" then exit;who=upper(strip(who));MCFenv=address();xl=pos('.',MCFenv)+1;Client=substr(MCFenv,xl,1);SAC="SABUSER."||Client;SAbuser=" "||getclip(sac);select;when flag ~='-' then;SAbuser=SAbuser who;otherwise;do;xl=pos(who,SAbuser);if xl=0 then exit;xl=xl-1;x1=left(SAbuser,xl);xt=substr(SAbuser,xl);parse value xt with drop x2;SAbuser=x1||x2;end;end;call setclip(SAC,strip(SAbuser));exit